home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / baritone.dxr / 00023_EDGE CHECKS.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  945 b   |  44 lines
  1. on CheckLHSpageEdge c
  2.   global LHSpile
  3.   set doit to 0
  4.   if objectp(LHSpile) then
  5.     set s1 to TopSprite(LHSpile)
  6.     if s1 <> -1 then
  7.       if rollOver(s1) then
  8.         if AnyStrip(s1, the mouseH, the mouseV) then
  9.           SelectCursor(c)
  10.           PointAt(LHSpageEdge())
  11.           set doit to 1
  12.         else
  13.           SelectCursor(DocumentCursor())
  14.           PointAt(LHStext())
  15.           set doit to 1
  16.         end if
  17.       end if
  18.     end if
  19.   end if
  20.   return doit
  21. end
  22.  
  23. on CheckRHSpageEdge c
  24.   global RHSpile
  25.   set doit to 0
  26.   if objectp(RHSpile) then
  27.     set s2 to TopSprite(RHSpile)
  28.     if s2 <> -1 then
  29.       if rollOver(s2) then
  30.         if AnyStrip(s2, the mouseH, the mouseV) then
  31.           SelectCursor(c)
  32.           PointAt(RHSpageEdge())
  33.           set doit to 1
  34.         else
  35.           SelectCursor(DocumentCursor())
  36.           PointAt(RHStext())
  37.           set doit to 1
  38.         end if
  39.       end if
  40.     end if
  41.   end if
  42.   return doit
  43. end
  44.